Top 10k strings from Rund um den Kalender (1984)(B.W. Friedrich)(de).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 C1,A2;A$;G$;B$(A6
   2 C0,A0;A$;B$;
   2 C0,A0;A$;"HEUTIGES ";B$;
   2 C0,A0;A$;"ANFANGS";B$;
   2 B0,A0;A$;"DRUCKER BEREIT MACHEN..."
   2 A4);".";K$(A1,B7
   2  FEIERTAGE 
   1 Z= <COPY>   X=MENUE   V=WEITER 
   1 Y,(Z-A1)*A4+A3;N$
   1 X=D1*(M-A1)
   1 W.TAGE I.TAB.
   1 T$(A7)="SAMSTAG"
   1 T$(A6)="FREITAG"
   1 T$(A5)="DONNERSTAG"
   1 T$(A4)="MITTWOCH"
   1 T$(A3)="DIENSTAG"
   1 T$(A2)="MONTAG"
   1 T$(A1)="SONNTAG"
   1 SUBROUTINEN
   1 SR TAB.UPDATE
   1 SR SCHALTJAHRPRFG.
   1 SR KALENDER
   1 SR JUMBOZAHL
   1 SR JAHRESEING.U.PRFG.
   1 SR FT.AUS.
   1 SR FT-TAB.
   1 SR DAT.EING.U.PRFG.
   1 SR CLRSCREEN
   1 ROSENMONTAG
   1 R=D1+C8+S+O
   1 O$(A7)="2323660"
   1 O$(A6)="2222551"
   1 O$(A5)="2121441"
   1 O$(A4)="1920341"
   1 O$(A3)="1818230"
   1 O$(A2)="1717130"
   1 O$(A1)="1516021"
   1 M$(B2)="DEZEMBER"
   1 M$(B1)="NOVEMBER"
   1 M$(B0)="OKTOBER"
   1 M$(A9)="SEPTEMBER"
   1 M$(A8)="AUGUST"
   1 M$(A7)="JULI"
   1 M$(A6)="JUNI"
   1 M$(A5)="MAI"
   1 M$(A4)="APRIL"
   1 M$(A3)="MAERZ"
   1 M$(A2)="FEBRUAR"
   1 M$(A1)="JANUAR"
   1 L$(A8,D2+A1)
   1 KARFREITAG
   1 KAL.DISPLAY
   1 K$(B8)="3112 SILVESTER"
   1 K$(B7)="2612 2.WEIHNACHTSTAG"
   1 K$(B6)="2512 1.WEIHNACHTSTAG"
   1 K$(B5)="2412 HEILIGABEND"
   1 K$(B4)="    4BUSS- U. BETTAG"
   1 K$(B3)="0111 ALLERHEILIGEN"
   1 K$(B2)="1706 T.D.DT.EINHEIT"
   1 K$(B1)="    5FRONLEICHNAM"
   1 K$(B0)="    2PFINGSTMONTAG"
   1 K$(A9)="    1PFINGSTSONNTAG"
   1 K$(A8)="    5CHR.HIMMELFAHRT"
   1 K$(A7)=L$(
   1 K$(A7)="0105 MAIFEIERTAG"
   1 K$(A6)="    2OSTERMONTAG"
   1 K$(A5)="    1OSTERSONNTAG"
   1 K$(A4)="    6KARFREITAG"
   1 K$(A3)="    2ROSENMONTAG"
   1 K$(A2)="0601 HL.3 KOENIGE"
   1 K$(A1,A5),
   1 K$(A1)="0101 NEUJAHR"
   1 J>H1-A1+H1*
   1 J$=" BERECHNUNG NICHT MOEGLICH"
   1 INITIALISIERUNG
   1 I+B1,A0;L$(I)
   1 I$(I)+A1)*A8-A9+K)
   1 HIMMELFAHRT
   1 H=J+Q+G-C-(
   1 G=E-B1*F-(
   1 G$="""< ENTER >"""
   1 FRONLEICHNAM
   1 F$="WOCHENTAG"
   1 EINGABE AKT. DATUM
   1 E$="  EINGABEFEHLER - KORRIGIEREN"
   1 C1,A1;"JJJJ"
   1 C1,A0;A$;G$;B$(A6
   1 C1,A0;A$;F$;B$(A6
   1 C0,B3;"(J/N)":
   1 C0,A0;A$;"JAHR";B$(A6
   1 C0,A0;A$;"2.";B$;
   1 C0,A0;A$;"1.";B$;
   1 C$="TT.MM.JJJJ"
   1 BEST. W-TAG
   1 B8,A1;"WIRD NEUER ANFANG GEWUENSCHT ?";
   1 B8,A0;J;"<-";J$;;
   1 B6;K$(I,A6
   1 B6;K$(A1,A6
   1 B5;"   ENDE   
   1 B3,A3;"ABSTAND: ";
   1 B3,A0;"WAR"
   1 B3,A0;"IST DER ";
   1 B0,A8;"AKTUELLES ";B$(A1
   1 B0,A6;"DER";
   1 B0,A3;F$;":";
   1 B0,A2;"FEIERTAGSBERECHNUNG ERFOLGT!"
   1 B$="DATUM EINGEBEN:"
   1 ABS.TAG F.OSTERN
   1 A4;"* RUND UM DEN KALENDER *";
   1 A4,A3;"SO  MO  DI  MI  DO  FR  SA";
   1 A2,A1;K$(A1,
   1 A2);".";K$(I,A3
   1 A2);".";K$(A1,A3
   1 A1,A3;M$(K);
   1 A$=" BITTE "
   1 ;"MIT FEIERTAGSLISTE",,,
   1 ;"(ZEITRAUM 1583-2399)":
   1 . IN TAGEN:"
   1 *RUND UM DEN KALENDER*
   1 * 6500 MAINZ 1  1/84 *
   1 * (C)  B.W.FRIEDRICH *
   1 (Z/H4)+X+D"
   1 (W-B);" TAG";
   1 (W-A);". TAG DES JAHRES ";D$(A7
   1 (J/B9)*B9)
   1 ((J+Q+G-C)/A7)*A7)
   1 ((E-B1*F)/D0)*D0)
   1 ((306*M-324)/10)"
   1 $ (15.10.1582  -  31.12.9999)"
   1 "KALENDER"
   1 "62",,,,"    
   1 ",,,"(ZEITRAUM 15.10.1582-31.12.9999)";
   1 ",,," DER WIEVIELTE TAG DES JAHRES","  IST EIN BESTIMMTES DATUM ?","   (15.10.1582 - 31.12.9999)"
   1 ",,," AUSDRUCK EINES JAHRESKALENDERS",
   1 ",,,"   BESTIMMUNG DES WOCHENTAGES
   1 ",,,"   BESTIMMUNG DES ABSTANDES ","ZWISCHEN ZWEI EINGEGEBENEN DATEN
   1 ",,,"   BESTIMMUNG DER FEIERTAGE","  FUER EIN VORGEGEBENES JAHR",,,"   (ZEITRAUM:  1583 - 2399)"
   1 ",,,"    ";
   1 " (15.10.1582  -  31.12.9999)
   1  WOCHENTAG 
   1  TAGESNUMMER 
   1  FUER EIN VORGEGEBENES DATUM:
   1  BESTIMMTER WOCHENTAG 
   1  AUSWAEHLEN:
   1  AUSGEGEBEN"
   1  >WANN FAELLT EIN DATUM","    IN DEN FOLGENDEN JAHREN","AUF EINEN BESTIMMTEN WOCHENTAG ?"'"    (15.10.1582 - 31.12.9999)",,,"(ES WERDEN 20 ZUTREFFENDE DATEN)
   1   WOCHENTAG",,,"    
   1   FUER EINEN MONAT";
   1   FUER  EIN  JAHR"
   1   *  *  *  *  *  *  *  *  
   1    TAGESNUMMER",,,"    
   1    PROGRAMM BEENDEN"
   1    KALENDER-DRUCK",,,"    
   1    KALENDER-DISPLAY",,,"    
   1    FEIERTAGE",,,"    
   1    BESTIMMTER WOCHENTAG",,,"    
   1    ABSTAND",,,,"